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9.3 DATA OP DE MDCR 


9.3.1 Karakteristieken van de gebruikte recorder 


Cassette : Phílíips Miíinicassette, tape 3,81 mm breed 

Opnamekop : enkele spleet, enkel spoor, halve breedte 

Sporen : twee, een ín elke richting 

Opname mode : teken en bit serieel, phase encoded, het minst significante 
bit voorop 

Dichtheid : 12 — 20 bíts/mm 

Capaciteit : in een aaneengesloten blok: 64 kbyte per kant 


in blokken van 1024 byte : 40 kbyte per kant 

in blokken van 256 byte : 32 kbyte per kant 
Snelheid : 6000 bits/sec. 

30 cm/sec. — 50 cm/sec. 
Doorlooptijd : 95 seconden nominaal zonder stops voor 35 meter tape 


Starttijd : in dezelfde richting: binnen 100 msec. 
in tegenovergestelde richting: binnen 150 msec. 
Stoptijd s 30 — 100 msec. 


Startafstand : in dezelfde richting: 15 — 50 mm 
in tegenovergestelde richting: 30 — 65 mm 
Startgat : l sec. voor het eerste record 
Tussen records : 450 msec voor alle volgende records 
End of data gat: 1,8 sec na het laatste record of na het startgat 


9.3.2 Phase encoding 


Phase encoding is een veel gebruikte manier om digitale informatie op een tape 
te schrijven. Professionele computertapes worden meestal zo beschreven. De 
tijd wordt hiervoor ingedeeld in gelijke stukjes, z.g. bitcellen. In elke 
bitcel wordt een bit geschreven. Op de MDCR van de P2000 komen de bitcellen 
met een snelheid van 6000 cellen per seconde. 

Bij phase encoding wordt een 1 op de tape geschreven met een wisseling in 
magnetisatie van de tape in een bepaalde richting, bij voorbeeld van zuid naar 
noord, ín het midden van de bitcel. Een O wordt geschreven met een wisseling 
in de tegenovergestelde richting, dus van noord naar zuid, ook in het midden 
van de bitcel. Wanneer er twee dezelfde bits achter elkaar staan, moet er op 
de scheiding tussen de twee bitcellen dus een extra magnetisatie-wisseling ín 
de tegenovergestelde richting worden tussengevoegd. 


bitcel bitcel 
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9.3 DATA OP DE MDCR 
9.3.2 Phase encoding (vervolg) 


Zoals is te zien, komt er op de cassette een toon van 6 kHz wanneer er een 
stel nullen achter elkaar wordt geschreven, maar ook als er een aantal enen 
achter elkaar staat. Phase encoding heeft het voordeel dat er uit de 
datastroom gemakkelijk een kloksignaal is af te leiden en dat er geen echte 
lage frequenties ín voorkomen. Een klein nadeel is dat de polariteit van het 
signaal essentieel is. Als het signaal wordt geïnverteerd, dan veranderen alle 
nullen in enen en omgekeerd. Daarom is phase encoding ongeschikt voor gebruik 
op normale cassetterecorders. Daarbij is namelijk niets vastgelegd omtrent de 
polariteit van het weergegeven signaal. 


9.3.3 Hoe een blok in elkaar zit 


SG = Startgat gewiste tape 
SM = Startmerk 
BG = Blokgat gewiste tape 
DB = Datablok 
EG = Eindgat gewiste tape 


9.,3.3.1l Startmerk 


Het startmerk bestaat uit 4 bytes: 


Sync byte : &H AA 
Eerste checksom byte : &H 00 
Tweede checksom byte : &H 00 
Eindsync byte s: &H AA 


9,3.3.2 Datablok 


Het datablok bestaat uit totaal 1060 bytes, en wel als volgt: 


Sync  ÉH AA 

Header : 32 bytes, zie hierna 

Data bytes: 1024 bytes, transparante data 

Checksom : 2 bytes volgens het polynoom X16 + X15 + X2 +1 


Eindsync : &H AA 


BEE NEE TEN AEEA EERE BER ET 
P2000 Nieuwsbrief Nr.144 / april 1986 


U CEA ESEBE TT EFSEL LG ORS DES RS 
EE NN A ER IE REEL 


9,3 DATA OP DE MDCR 
9.3.4 Header 


De 32 bytes ín de header hebben de volgende betekenis: 


Byte nr. Betekenis Codering 
0 en 1 Beginadres Binair 
2 en 3 Aantal bytes ín de file Binair 
4 en 5 Aantal geldige databytes Binair 
6 t/m 13 Naam, eerste 8 tekens ASCII 
14 t/m 16 Uitbreiding (BAS, INT, enz) ASCII 
17 Soort (B, F,‚ V, W,‚, enz) ASCII 
18 Taalgroep (D, U, N, enz) ASCII 
19 en 20 Machínetaal startadres Binair 
21 en 22 Machinetaal laad-beginadres Binair 
23 t/m 30 Naam, volgende 8 tekens ASCII 
31 Bloknummer Binair, aflopend tot O1 
Soort: B = Basic 
W = Wordprocessor 
V = Viewdata en BIS-editor 
F = Familiegeheugen-bestanden. 


Deze letter verschijnt op het scherm wanneer men in BASIC op “ZOEK” drukt. 


Duits en Oostenrijks 
Nederlands 

Engels (en Nederlands) 
Zweeds 


Taalgroep: 


D 
N 
U 
hs) 


Het is mogelijk dat niet alle bytes ín een file geldig zijn. Dit mechanisme is 
nodig om het mogelijk te maken van te voren ruimte te reserveren voor een 
groter wordende file. De tekstverwerker reserveert op deze manier 5 kb voor 
elke pagina. Basic gebruikt het alleen wanneer een kleiner programma over een 
oud, groter programma heen geschreven wordt. Wat er dan op de cassette geschre 
ven wordt, blijft even groot, de bytes aan het einde worden overschreven met 
nullen en deze zijn niet geldig. Aan de bytes nr. 2 en 3 is dus te zien hoe 
groot de werkelijke file ooit geweest is. 
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9.4 CASSETTE-FOUTEN 
9.4.1 Cassette-fouten bij Basic=-NL 


Af en toe treden er fouten op bij het gebruik van de minicassette. Deze worden 
meestal veroorzaakt door een vervuilde, versleten of beschadigde band in de 
cassette. Maar er kunnen ander oorzaken zijn. Hier is een lijst van alle 
fouten, die kunnen optreden. Gegeven wordt het errornummer, de AAEDEERES 
letter en de melding van Basíic-NL, als die er is. 


65, Cassettefout A, Geen cassette 
Er is geen cassette in de recorder of het schakelaartje dat naar de 
cassette voelt, is ontregeld. 


66, Cassettefout B 
Begin van de band. Dit wijst op een veel te stroef lopende cassette. De 
P2000 heeft het begin van een programma gevonden en wil weer naar het 
begin van het programma spoelen. Dat gaat echter zo stroef, dat het lijkt 
alsof de cassette al aan het begin staat. 


67, Cassettefout C, Leesfout 
Checksom fout in datablok. Elk blok op de cassette wordt gecontroleerd met 
een checksom. Als deze fout gelezen wordt, komt dat meestal door een 
beschadigde band. Soms is een stukje per ongeluk gewist. Zet nooit de 
P2000 uit als de cassette (nog) loopt! 


68, Cassettefout D 
Checksom fout van het startmerk. Elk datablok wordt voorafgegaan door een 
startmerk. De checksom hiervan kan door dezelfde oorzaken als die bij een 
leesfout verkeerd uitvallen. 


69, Cassettefout E 
Einde van de cassette. Bij het inlezen betekent dit vrijwel altijd dat er 
data verloren zijn gegaan. Bij schrijven kan het voorkomen dat toch alles 
is weggeschreven. Dit is op de meest eenvoudige wijze te controleren door 
het programma of de data nogmaals weg te schrijven op dezelfde plaats. 
Gaat het de tweede keer zonder problemen, dan is alles ín orde. 


10, Cassettefout F 
Cassette is vol (Full). Het programma is ín zijn geheel weggeschreven. 


71, Cassettefout G, Geen stopje 
Er zit geen schrijfstopje in de cassette terwijl er iets op geschreven 
moet worden. 
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9,4 CASSETTE-FOUTEN 
9,4.1 Cassette-fouten bij Basic-NL (vervolg) 


73, Cassettefout I 
Terugspoeltijd verstreken. De minicassette behoort een spoeltijd van 


ongeveer 90 seconden te hebben. Wanneer een cassette langer spoelt dan 
100 seconden treedt de fout op. Oorzaken kunnen zijn een gebroken 
band of een cassette met een te lange tape erin. 


74, Cassettefout J 
Te kort datablok gelezen, maar de checksom klopt wel. Deze fout treedt 


zeer zelden op. Het resultaat is hetzelfde als dat bij een leesfout, data 
is niet te gebruiken. 


75, Cassettefout K 
Verkeerde functiecode, De machinetaalroutine voor de cassette wordt 
bestuurd door een getal mee te geven. Dit bepaalt wat er moet gebeuren. 
Als er een getal wordt gebruikt, dat niets betekent, dan komt deze 
foutmelding terug van de machinetaalroutine. Omdat de interpreter nooit 
een verkeerde functíecode meegeeft komt deze melding ín BASIC niet voor. 


16, Cassettefout L 
Te kort datablok gelezen, checksom ook fout. Meestal is er in dit geval 
een klein stukje van de cassette gewist. Het resultaat is gelijk aan data 
van een leesfout. Schakel de P2000 nooit uit als de recorder nog loopt! 


78, Cassettefout M, Niet gevonden 
Geen startmerk gevonden binnen een tijd van 1,5 sec. Dit geeft aan dat 


de cassette (verder) leeg ís. 


79, Cassettefout N 
Geen datablok gevonden. Na elk startmerk moet een datablok volgen. Dit 


ontbreekt blijkbaar geheel omdat er een stuk tape gewist ís of de 
cassette tijdens het opnemen is uitgenomen. Deze fout komt niet vaak voor. 


9.4.2 Cassette-fouten bij Basíic-UK 
Bij het gebruik van de oude Basic-UK komen ook nog voor: 


Cassette error O0 
Te weinig geheugen beschikbaar om het gevonden programma of array in op 
te slaan. Bij BASIC NL is deze melding vervangen door Out of memory = 


error 7. 


Cassette error W 

Verkeerde informatie op de cassette. Wat er op de cassette staat is geen 
BASIC. Dit wordt herkend aan de B ín de header. BASIC NL loopt híer over 
heen en kijkt of er verderop nog iets bruikbaars staat. 
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13.8 LICHTPEN 
13.8.1 Inleiding 


De lichtpen is een zeer eenvoudig hulpmiddel, waarmee het kiezen ín een pro- 
gramma veel gebruikersvriendelijker kan worden gemaakt. Ook de constructie ís 
eenvoudig. Een lichtgevoelige fototransistor wordt gemonteerd in een geschikt 
buisje, bij voorbeeld een lege balpenhouder. De lichtpen wordt via een eenvou- 
dige schakeling aangesloten op de printerconnector. Wanneer de pen op het 
scherm van de monitor of TV wordt gehouden, op een plaats waar een oplichtend 
teken staat (een wit blokje), dan kan de P2000 dit via de printerconnector 
signaleren. Hierbij is een klein stukje machinetaal nodig. 


Het maken van een keuze uit een menu met behulp van de lichtpen is aanzienlijk 
veel prettiger dan het kiezen met het toetsenbord. Het sluit meer aan bij de 


menselijke manier van denken: “Dat daar wil ík hebben”. 


13.8.2 Schakelschema 


| 
40332UU0I AULA 


Door de rasterscan van een monitor is het zo dat elke plaats van het scherm 50 
keer per seconde wordt geraakt door de electronenstraal. Het licht is er dus 
niet continu, maar komt 50 keer per seconde als impuls. De ímpuls wordt ver- 
sterkt door de BC 559 en toegevoerd aan pen 2 van de printerconnector. Omdat 
niet ieder monitorscherm evenveel licht afgeeft, is de gevoeligheid met een 
regelweerstand instelbaar gemaakt. 


13.8.3 Print je 


Het kleine aantal onderdelen maakt het mogelijk de gehele schakeling onder te 
brengen in de kap van de toe te passen RS232-steker, dít buiten de lichtpen. 
Het rechthoekige printje is bestemd voor inbouw ín de kap van een Philips- 
connector, het trapeziumvormige printje behoort bij een connectorkap van het 
merk AMP. 


RETE EE AE EE EAS DIE ARE EA LEE ej 
P2000 Nieuwsbrief Nr.148 / april 1986 


Loe Bk tn CD Kel tn FS EZ 


13.8 LICHTPEN 


13.8.3 Printje (vervolg) 


Philips 


AMP 


Onderdelenziíjde Sporenzijde 


13.8.4 Montage 


Het monteren van het printje gaat vrijwel net zo als bij de cassetterecorder 
interface. Raadpleeg hoofdstuk 13.6.3 daarvoor. 


Onderdelen 
1 Weerstamd 100 kOhm, 0,25 Watt (bruin-zwart-geel) 
1 Weerstand 10 kOhm, 0,25 Watt (bruin-zwart-oranje) 
l Weerstand 1 kOhm, 0,25 Watt (bruin-zwart-rood) 
l Condensator, keramisch 10 nF 
l Multiturn instelweerstand 10 kOhm 
l LF PNP transistor 
met hoge versterking BC 109, BC 559 o.i.d. 
l Fototransistor met lensje BPX 25 


rd: 


IN® ® @] ONF 


BC5 59 


[®) 
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13.8 LICHTPEN 


13.8.4 Montage (vervolg) 


Gebruik dun en soepel afgeschermd snoer van voldoende lengte voor de lichtpen. 
In de pen wordt alleen de fototransistor BPX 25 ondergebracht. Gebruik voor de 
pen een oude balpenhouder van niet-doorzichtig plastic. Het gaatje voorin, 
waar de fototransistor “doorheen kijkt”, moet meestal iets groter worden 
gemaakt, tot ongeveer 3 mm. Dit gat bepaalt grotendeels de kijkhoek. 


Cry aa 
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13.8.5 Hulproutine 


Er is een klein stukje machinetaal nodig om de lichtpen te kunnen gebruiken. 


0000 Ol 8D 03 LD BC,038D Maximale kijktijd = 1/50 sec. 
0003 AF input XOR A Antíi-streepjes 

0004 DB 20 IN 20 Kijk naar lichtpen 

0006 2F CPL Inverteer alle bits 

0007 E6 Ol AND Ol Isoleer bit 0 

0009 20 05 JR NZ klaar Licht gezien, dan al klaar 
OOOB OB DEC BC Laag kijktijd-teller af 
000C 78 LD A‚B 

OOOD Bl OR C Tijd al om? 

OOOE 20 F3 JR NZ input Nee, nog eens 

0010 77 klaar LD (HL) ,A Bewaar een O0 of een 1 

OO11 3E 02 LD A,02 A=2 voor een integer 

0013 C9 RET Return 


Dit stukje machinetaal van 20 bytes kijkt gedurende maximaal 1/50 seconde naar 
de lichtpen. Als er geen licht werd gezien in deze tijd dan komt hij terug met 
een O0, was er wel licht, dan geeft hij een 1. 

De routine is relocatable en kan ongewijzigd op elk adres worden geplaatst. In 
een Basíc-programma kan hij als volgt worden ingevoegd: 


10 RESTORE 30 : A=&H6030 

20 FOR I=0 TO 18 : READ A$:POKE A+I,VAL("&H"+A$) : NEXT 

30 DATA 01,8D,03,AF,DB,20,2F,E6,01,20,05,0B,78,B1,20,F3,77,3E,02,C9 
40 DEF USR=A 


Op regel 10 wordt het beginadres van de routine gedefinieerd. Er is gebruik 
gemaakt van een stukje geheugen dat ook door de cassetterecorder wordt 
gebruikt. Staat hier wat anders, dan komt de routine op een andere plaats. 
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13.8 LICHTPEN 
13.8.6 Testen en afregelen 


Voeg de volgende paar regels toe aan het programma van 13.8.5 


100 PRINT CHRS(12) CHRS(2) CHRS(4) CHR$S(12) CHRS(18) CHRS(127) 
110 A=USR(0) 

120 PRINT CHR$S(4) CHRS(12) CHRS(20) A 

130 IF PEEK(“")=0 THEN 110 ELSE A=INP(""): END 


Merk op hoe de routine in regel 110 wordt aangeroepen en hoe A de waarde O0 of 
l krijgt wanneer er geen of wel licht wordt gezien. Run het totale programma. 
Midden op het scherm verschijnt een blokje en daar achter het cijfer O0. Als 
het goed is, verandert de 0 in een 1 wanneer de lichtpen op het blokje wordt 
gehouden. Meestal zal dat niet meteen zo zijn. Handel dan als volgt: 


1. Regel de monitor zo af dat de achtergrond net geen licht geeft en de tekst 
niet “opblaast”, maar wel goed helder is. 

2. Regel de instelweerstand door het gaatje in de connectorkap nu zo af, dat 
er bedrijfszeker een 1 verschijnt als de pen op het blokje wordt gehouden. 


De lichtpen reageert alleen op een monitor= of TV-scherm en niet op lampen of 
daglicht. Het licht moet duidelijk een pulserend karakter hebben. 


13.8.7 Gebruik ín programma’s 


Met deze lichtpen kan er alleen worden geken of er licht is onder de pen, maar 
niet waar dat licht op het scherm is. Dat hoeft geen bezwaar te zijn. Bij voor- 
beeld ín een keuzemenu kunt u dít als volgt opvangen; 


Maak een scherm met keuzemenu, met bij elke keuze een blokje en een cijfer. 
Wacht dan tot er licht wordt gezien door de lichtpen of tot er een toets wordt 
ingedrukt. Zet in het eerste geval achtereenvolgens de verschillende blokjes 
even uit en controleer steeds of de output van de lichtpen meegaat met het 
uitzetten van het blokje. Zo niet, zet dan het blokje weer aan en probeer het 
met het volgende blokje. Wanneer de juiste keuze gevonden is, zet dan nog een 
paar keer het blokje aan en uit en controleer of de líicht-output echt meegaat. 
Zo is een zeer bedrijfszekere lichtpen ontstaan, die relatief erg goedkoop is 
en gemakkelijk in een programma is in te passen. 
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14.4 MINITEXT 


14.4.9 Koppelen van bestanden 
Jan Gieles 


Bestanden gemaakt m.b.v. MINITEXT kunnen op verschillende manieren aan 
elkaar gekoppeld worden. We behandelen eerst een zuinige manier wat betreft 
tekstruimte maar die wat kennis en kunde vraagt van de gebruiker en daarna 
een veilige manier, die altijd werkt en door iedereen te gebruiken is. 


Eerst de zuinige manier. Als een bestand wordt ingeladen wordt het 

standaard in een gereedliggend array geplaatst, dat vlak daarvoor leeg 
gemaakt is. Onderstel eens, dat we dat leegmaken verhinderen en dat we 

een aanwezig bestand d.m.v. ingevoegde blanco regels zover naar onderen 
verplaatst hebben dat er een ander bestand boven past (elke regel is 80 
bytes). Een nieuw in te laden bestand zal dan de eerste (lege) regels van het 
oude overschrijven en we hebben de twee bestanden aan elkaar gekoppeld in de 
machine ter beschikking. 


De werkwijze is als volgt: 

Het wissen van het aanwezige bestand gebeurt in regel 940 door de 
instructies: J=EFNT: 1=2*X:GOSUB37 : PRINTLS ; 

(Sub 37 plaatst I spaties vanaf adres J en zet de cursor aan. FNT is het 
begin van het array en X het aantal elementen ervan.) 

Het is voldoende om deze instructies te verwijderen. Dit levert bovendien 
een dikke 20 bytes extra ruimte op. 


U loopt dan wel tegen enkele problemen op. Elk bestand wordt n.l. voor het 
wegschrijven voorzien van een staartje van 8 bytes, dat na het inladen 
wordt uitgelezen en verwijderd. Deze procedure loopt in het bovenstaande 
geval mis, maar de gevolgen zijn niet ernstig en te overzien. 
Het zijn de volgende: 
1. Als dat nodig is dient U zelf een aanwezig bestand te wissen via 
STOP en START. Het programma doet dat niet meer. 
2. Het staartje van het nieuw ingeladen bestand wordt niet gewist. 
Overschrijf dus na het inladen de laatste 8 bytes daarvan met spaties. 
3. Inplaats daarvan worden de laatste 8 bytes van het onderste, reeds in de 
machine aanwezige programma wel gewist. Zet dus van tevoren op minstens 8 
posities na dat bestand de een of andere letter neer. 
4, De linker marge en de regelbreedte worden fout ingelezen. 
Pas deze dus direct na het inladen weer even aan. 


Aangezien het koppelen niet alle dagen zal voorkomen, is het heel goed te doen 
om deze aanpassing niet te CSAVE'n, maar per keer dat het nodig is uit te 
voeren. Punt 1 hierboven komt dan te vervallen. 
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14.4 MINITEXT 


14.4.9 Koppelen van bestanden (vervolg) 


Voor wie het koppelen regelmatig gebruikt volgt hieronder nog een methode, 
die zich o.a. van de eerste onderscheidt, doordat een tweede bestand niet 

voor, maar achter een reeds aanwezig bestand wordt geplaatst. 

Hiertoe moet het hoofdprogramma worden gewijzigd volgens bijgaande regels. 
Het kost ca 160 bytes of twee tekstregels. Geef eerst CLOAD"M", wijzig dan 
en schrijf tenslotte weer weg met CSAVE“MNT Nx.x + kopp." 


850 Pí4)=zis I=FNTAXK2r J=TK40-X+5s POKEI, 2: In 850 moeten 3 


POKEI+1,82:POKEI+2Z, Os POKEI+S, (245) MODS 
sPOKEI+4, (245) 252 POKEI+S, 12 POKEI+G, JMO 
DS:zPOKEIH/, J=5: I=X: GOTO880 

FOO Y=ÓrGOSUBF0O: IFXTHENX=X+4:s PRINT" Best 
and omvat"2&X"bytes"sPRINTsPRINT" Daar a 
verheen 7? (J/N) “"CHRE(I)sSELSES1O 

SOA AZINP("")AND9S: IFA=/STHENIFX+40T&40 
THENPRINTF$; : GOTOSOA4ELSEY=IELSEIFAS >74TH 
ENSO4 

906 PRINTCHRS (A) 


FAO IFYTHENX=4AORC (KI) 240) +562 GOSUB35O: CG 


LOADERDCHR$ (A) z GOSUBB/OELSEJ=FNT: I= 2X:G 


OSUBS 7: PRINTL$; sP (5) =0r CLOADKTOCHR$ (A) 


65325 REM Versie Nx.xtKopp dd XX-XX-EX 


poke's erbij. 
S= 2507 T- 1e 
de vroegere NI. 


900 wordt 
helemaal anders. 


904 en 906 
komen erbij. 


940 krijgt een 
stuk ervoor. 
LS = CHRS (2) 


Documentatie 


Voor het laden wordt gevraagd of het nieuwe bestand over het oude heen moet 
komen of er achteraan. Na het laden zijn de linker marge en de regelbreedte 
van het laatst ingeladen bestand in de instelling opgenomen. 


Als beide methoden tegelijk worden gebruikt, kan een extra bestand naar 
believen voor of achter een aanwezig bestand worden gekoppeld. 
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14.4 MINITEXT 


14.4.10 Controle op cassettefouten 
Jan Gíieles 


Als een bestand op cassette is weggeschreven, is het alleen maar veilig op 
eventuele cassettefouten te controleren door het op een andere P2000 te bekij- 
ken, b.v. via MINITEXT of via cassettehulp. 

De eigen machine is nl. nog bezet en als we uit het programma springen, is het 
bestand verloren. De ZOEK-toets geeft ook geen uitkomst, want die leest alleen 
het eerste blok van elke file en slaat de rest over. In de oude UK-BASIC werd 
bij de inhoudsopgave wel alles gelezen, maar er kwam ook geen foutmelding als 
er iets mis ging. 


Onderstaande aanpassing maakt het mogelijk om binnen het programma een contro- 
le op cassettefouten te laten uitvoeren. Het menu van de cassette is daartoe 
uitgebreid met de mogelijkheid om via de blíiksemtoets een cassette op mogelij- 
ke fouten te laten doorzoeken. 

Deze aanpassing vraagt wijzigingen ín zowel het voor- als het hoofdprogramma. 
In het voorlooppprogramma “printer XXX" wordt een klein stukje machinetaal 
weggezet. Het regelnummer is onbelangrijk, als het maar groter dan 30 en 
kleiner dan 100 is. 


40 A=&H6SS50O: Af="7EDF77C9" : GOSUB4080: DEF 
USR=A 


In het hoofdprogramma moeten twee dingen gebeuren. In de eerste plaats moet 
het menu van de cassette als volgt worden aangepast: 


G20 PRINTENFPS (2, 5) CHRS (22) TAB (5) "Plaats 

de juiste CYS8!", Ni PRINT:sPRINTTAE (5) " Imho 
udsopgave" TAR(SO) CE" ZOEK!" 3 PRINT: PRINTTAB 
(HC SEN wissen!"TAR CHO) KS 

650 PRINT: PRINTTAB (5) D$'inlezen!"TAB CO) GC 
BY INL Ys PRINT: PRINTTAR (CD) DE! wegschrijven! 
TAB (50) CHYOPFN!"' s PRINT: PRINTTAB CS) "Control 
e"TAB CAO CS!" / 5! 

355 POKEW+S, 1.58 POKENW+6, 101 PRINTWS 3 

840 GOSUB/ 2: IF Isl SSTHENSOOELSEIF I=1 Z&THE 
NIBOELSE IF I=iSITHENI=USRS (O)ELSEIFI=1 ZST 
HENI=USR& (OD ELSEIF I= 1 30OTHENGOSUBZSOOOELSE 
40 OE 
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14.4 MINITEXT 
14.4.,10 Controle op cassettefouten (vervolg) 


Verder moet onderstaande subroutine vanaf 3000 in zijn geheel worden opge- 
nomen: 


3000 PRINTC$"Controle's: I=Ôs A=USR(O) 1 Az 
SRC) 1 IFATHENSOBO 

O0 POEEF +55, Os POKEF +56, Or POKEF +37 , 18 PQ 
KEF +58, Os POKEF +66, 11 A=ZIJSR (4) 1 IFATHENSOSO 
O5) AZPEEKR (F4+41) 1 IFASHITHENPRINTs PRINTY 
8; 

sO40 I=: PRINTCHRS (ID) C$"Ok"STRINGS (5,8) 3 
s GOTOSOZO 

O5) IFA=Z/THENPRINT : RETURNELSEFRINTMS"C 
158! f out PAN CHCHRE (A) P's RETURN 


Deze aanpassing kost ca 240 bytes of 3 tekstregels aan ruimte. Bewaar de 
LIST-ings, pas de staart aan en CSAVE het programma onder “MINITEXE-CtrNx.x” 
of iets dergelijks ten behoeve van uw eigen administratie. 


Met dank aan Hans Pennings. 


144.11 Regelinvoer repeteren 
Jan Gieles 


Onderstaande aanpassing in het hoofdprogramma “M" maakt, dat DEF + op analoge 
wijze reageert als DEF — op het vasthouden van de laatste toets: 


220 GOSUBS1s IFXSTTHENGOSUBSSOs FP (1) =P (0) 
PO) =ZeP (2) Pa ISFNPr Ge=0: GOSURGB2: IFPEEK (F 
) =A2THENZZOELSEIGGELSEOS 
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14.4 MINITEXT 


14.4.12 Cassettelabels voor audiocassettes 
Jan Gieles 


Hieronder staat een bestand in MINITEXT, dat als het uitgeprint 
wordt een papiertje oplevert met de inhoudsopgave van een normale 
audiocassette, dat bovendien precies in het doosje daarvan past. 
Door de rug van het doosje heen is dan het nummer en de naam van 
de cassette en door de platte kant heen de inhoud ervan te lezen. 
Een tijdbesparende manier dus, om Uw audiocassettes te updaten en 
van een nieuw jasje te voorzien. 

De breedte in het bestand hangt af van het aantal tekens per inch 


waarop de printer is ingesteld (CPI). Het meest rechtse teken valt: 
DER GPL: 10 onder nr: 41 (zie voorbeeld) 
12 49 
15 61 
NT, 69 


Hoe groter CPI is, hoe meer tekst U kwijt kunt maar hoe slechter 
deze te lezen zal zijn. 

In de getoonde bestanden zijn de hekjes in werkelijkheid blokjes. 
(CHRS (127), op toetsenbord boven het hek) 

De bedoeling is n.l., om iets te laten onderstrepen, wat zelf 
niet uitgeprint mag worden. Maar juist omdat die blokjes niet 
gezien kunnen worden, zijn ze hier even vervangen door hekjes. 
De onderste rij blokjes kan voor zover nodig overschreven 

worden met tellerstand en titel van het zevende nummer op 

kant B. Laat daarbij in elk geval het eerste en het laatste 
blokje staan, dan komt de streep netjes op zijn plaats. 

Het bestand is bedoeld voor een matrixprinter, omdat deze 
categorie gewoonlijk bij een reeks onderstreeptekens een 
stippellijn produceert en alleen bij echt onderstrepen een 
doorlopende lijn. Bij een letterwielprinter kan met voordeel 

een iets gewijzigd bestand worden gebruikt, zoals dat waarvan de 
eerste regels daaronder zijn afgedrukt. De horizontale streep- 
Jes zijn onderstreeptekens en geen mintekens. De rest is gelijk 
aan het eerste bestand. 

Onderaan staat een voorbeeld van zo'n label, zoals dat na printen 
eruit behoort te zien. Er gaan 3 van zulke labels op een A4-tje 
en als U dat dwars gebruikt zelfs 4. Ik gebruik zelf maar één 
bestandje en type telkens de tekst over de vorige heen, maar U 
kunt ze desgewenst natuurlijk ook wegschrijven. 
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14.4 MINITEXT 
14.4.12 Cassettelabels voor audiocassettes (le vervolg) 


Bij gebruik van een matrixprinter dient het volgende te worden ingegeven: 


8 f, 3 4 5 6 
1 SOS 
2 ! weg \ 
5 
4 -Nr.- Titel of naam v.d. cassette 
5 SOS ( # = blokje } 
6 BEA it RAE HE it BR AE AE RER Ei EE it Ait EEE EEE EE HEHEH 
7 000 Eerste nummer kant A 
8 nnn Tweede nummer kant A 
9 enz. 
120 
dd 
12 
13 
1 Â omt nm ennen en nn nije jena 
15 000 Eerste nummer kant B 
16 nnn Tweede nummer kant B 
7 enz. 
18 
19 
20 
nd SOS ( # = blokje ) 
22 BR HR ARRA HE 
Es ! Hierboven laatste nummer kant B ! 
Voor een letterwielprinter worden de eerste zes regels aldus: 
2 3 4 5 6 
ik SEM-nn (eventuele extra marge) 
2 ! weg ! 
oe Pesse ee knip 
4 
5 -Nr.- Titel of naam v.d. cassette 
6 Joren eeen eee vouw 
f, enz. zie boven 
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14.4 MINITEXT 
14.4.12 Cassettelabels voor audiocassettes (2e vervolg) 


Het produkt dat uit de machine komt, hoort er dan zo uit te zien: 


À weg Ù „… 
nlp 


-Nr.- Titel of naam v.d. cassette 
vouw 
000 Eerste nummer kant A 
nnn Tweede nummer kant A 
enz. 


000 Eerste nummer kant B 
nnn Tweede nummer kant B 
enz. 


! Hierboven laatste nummer kant B ! 
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14.6 SNELZOEKBOEK 


14.6.2 Hernummeraar voor snelzoekboek 
Jan Gieles 


Voor bestandenprogramma's, waarin de gegevens in REM- of DATA-regels 
zijn opgenomen is een eenvoudige, ingebouwde hernummeraar vaak erg 
plezierig. 

Onderstaande hernummeraar laat de regels op hun plaats staan, tast het 
programma niet aan en past zichzelf aan, als de gekozen afstand tussen 
de regels te groot blijkt te zijn. Hij kan zo in alle ZOEK-boeken worden 
opgenomen. De aanroep gebeurt met "RUN 10000" in de directe mode. 

Voor andere bestandsprogramma's kunnen kleine aanpassingen nodig zijn, 
die m.b.v. de onderstaande LISTing snel duidelijk zullen zijn. 


10000 REM Hernummer 


10010 DEFINT BZ Bez S=l0sEs7999 B=Begin, S=Stap 

10020 VeS: AsPEEK (&H6R2SC) + 2564 PEEK E=Eind, A=Adres 
(&HE625D) V=Verschuiving 

10050 N=EPEEK (A42) + 256K PEEK (AD) 3 IF N=Nummer regel 


Ni=B THEN 10050 ELSE IF N2E THEN 
PRINT:PRINT"Klaar"sCLEARSEND ELSE 
IF B4+VPE THEN SeS/2: PRINT!" lg sg B+V=Nieuw nr. 
GOTOLOOZO 

10040 POKE A+Z, (H+V) MOD256:P0OKE A+S, 
(BAV) 22563 VsV4Bi PRINT! X''3 

10050 AzPEEK(A) + 2546K PEEK (A+1):G0OTO A=Nieuw adres 
10050 


De te behandelen regelnummers mogen niet boven de 32000 liggen. 
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